home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / util / misc / MultiRen.lha / MultiRen / MultiRen-Install < prev    next >
Encoding:
Text File  |  1980-05-08  |  2.4 KB  |  86 lines
  1. ; $VER: MultiRen-Install v1.3 (07.05.00)
  2. ; Installer script made by Stefan Blixth, OnyxSoft
  3.  
  4. (set #welcome "\nWelcome to MultiRen 1.3 installer.\n© 1999-2000 Daniel Westerberg, OnyxSoft.\n\nCheck our homepage for more stuff ;-)\n\nwww.onyxsoft.nu\n")
  5. (set #endmsgs "MultiRen 1.3 has now been installed on your system.\n\nDon't forget to register your copy at : daniel@algonet.se\n\nIt's totaly free!!!\n")
  6.  
  7. (message #welcome)
  8. (welcome)
  9. (complete 0)
  10.  
  11. ; - create destination dir
  12.  
  13. (set destination
  14.   (askdir (prompt "Please select the destination directory for MultiRen.\nA sub-directory \"MultiRen\" will be created.")
  15.     (default @default-dest)
  16.     (help @askdir-help)
  17.   )
  18. )
  19.  
  20. (set @default-dest destination)
  21.  
  22. (set destination (expandpath destination))
  23. (set destination (tackon destination "MultiRen"))
  24.  
  25. (if (<> 0 (exists destination))
  26. (
  27.   (message "There is an older installation of MultiRen in the same directory.\nI'll rename it to MultiRen_old, so you can delete it later.")
  28.     (run (cat "rename \"" destination "\" \"" destination "_old\""))
  29.     (run (cat "delete \"" destination ".info\" >nil:"))
  30.   )
  31. )
  32.  
  33. (makedir destination)
  34. (run (cat "copy " "/MultiRen.info \"" destination ".info\""))
  35.  
  36. (complete 25)
  37.  
  38. ; - copy main files
  39.  
  40. (copyfiles (prompt "Copying ...") (source "MultiRen") (dest destination) (help @copyfiles-help) )
  41. (copyfiles (prompt "Copying ...") (source "MultiRen.info") (dest destination) (help @copyfiles-help) )
  42. (copyfiles (prompt "Copying ...") (source "MultiRen.guide") (dest destination) (help @copyfiles-help) )
  43. (copyfiles (prompt "Copying ...") (source "MultiRen.guide.info") (dest destination) (help @copyfiles-help) )
  44. (copyfiles (prompt "Copying ...") (source "MultiRen.readme") (dest destination) (help @copyfiles-help) )
  45. (copyfiles (prompt "Copying ...") (source "MultiRen.readme.info") (dest destination) (help @copyfiles-help) )
  46.  
  47. (complete 50)
  48.  
  49. ; - copy plugins
  50.  
  51. (makedir (cat destination "/Plugins"))
  52. (copyfiles
  53.   (prompt "Copying...")
  54.   (source "Plugins/")
  55.   (pattern "#?")
  56.   (dest (cat destination "/Plugins"))
  57. )
  58.  
  59. (complete 75)
  60.  
  61. ; - copy developers stuff..
  62.  
  63. (set choice
  64.   (askchoice
  65.     (prompt "Do you want to install the developer files ?")
  66.     (choices "Yes" "No")
  67.     (default 0)
  68.     (help @askoptions-help)
  69.   )
  70. )
  71.  
  72. (if (= 1 choice)
  73.  
  74.   (makedir (cat destination "/Developers"))
  75.  
  76.   (copyfiles
  77.     (prompt "Copying...")
  78.     (source "Developers/")
  79.     (pattern "#?")
  80.     (dest (cat destination "/Developers"))
  81.   )
  82. )
  83.  
  84. (complete 100)
  85. (message #endmsgs)
  86. (exit)